
****************Coding for Cross-Sectional Analysis****************


****Pay for Play Question (DV)****
generate prepay = UMA358
recode prepay (1=0) (2=.25) (3=.5) (4=.75) (5=1) (6=.)
tab UMA358
tab prepay


****Gender (IV)****
generate female = gender
recode female (1=0) (2=1) (8/9=.)
tab gender
tab female


****Age (IV)****
gen age = birthyr
recode age (1918/1923=0) (1924/1929=.08) (1930/1935=.16) (1936/1941=.24) (1942/1947=.32) (1948/1953=.40) (1954/1959=.48) (1960/1965=.56) (1966/1971=.64) (1972/1977=.72) (1978/1983=.80) (1984/1989=.88) (1990/1996=1) 
tab age


***Education dummy variable (one category for no college graduation, one for Power 5 college graduation and one for non-Power 5 college graduation)****
****Power5 variable is hand coded based on UMA350****
generate education_categories_power5 = .
replace education_categories_power5 = 1 if (educ==1)
replace education_categories_power5 = 1 if (educ==2)
replace education_categories_power5 = 1 if (educ==3)
replace education_categories_power5 = 2 if (educ==4)
replace education_categories_power5 = 3 if (power5==0 & educ > 4)
replace education_categories_power5 = 4 if (power5==1 & educ > 4)
tab educ
tab power5
tab education_categories_power5


****Party Identification (IV)****
generate party_id = .
replace party_id = 1 if (pid7==1)
replace party_id = .83 if (pid7==2)
replace party_id = .67 if (pid7==3)
replace party_id = .50 if (pid7==4)
replace party_id = .33 if (pid7==5)
replace party_id = .17 if (pid7==6)
replace party_id = 0 if (pid7==7)
replace party_id = . if (pid7==8)
replace party_id = . if (pid7==9)
tab pid7
tab party_id


****Ideology (IV)****
gen ideology = ideo5
recode ideology (1=1) (2=.75) (3=.50) (4=.25) (5=0) (6=.50) (8/9=.)
tab ideology
tab ideo5

gen ideology2 = ideo5
recode ideology2 (1=1) (2=.75) (3=.50) (4=.25) (5=0) (6=.) (8/9=.)
tab ideology2
tab ideo5


****Income (IV)****
generate income = faminc
recode income (1=0) (2=.07) (3=.14) (4=.21) (5=.28) (6=.35) (7=.42) (8=.49) (9=.56) (10=.63) (11=.70) (12=.77) (13=.84) (14=.91) (15=.98) (16=1) (32/99=.)
tab faminc
tab income


****Union membership(IV)****
gen allunionhh = unionhh
recode allunionhh (3=0) (2=.5) (1=1) (8/9=.)
tab allunionhh
tab unionhh

generate everyunion = .
replace everyunion = 1 if (union==1)
replace everyunion = 1 if (unionhh==1)
replace everyunion = 0 if (everyunion~=1)
tab everyunion


***NCAA Feeling Thermometer***
generate ncaatherm = UMA351_3/100
tab UMA351_3
tab ncaatherm


***College Athlete Feeling Thermometer***
generate collegeaththerm = UMA351_4/100
tab UMA351_4
tab collegeaththerm


****Interest in College Sports (IV)****
gen collegeinterest = UMA352
recode collegeinterest (1=1) (2=.66) (3=.33) (4=0) (5=.)
tab UMA352
tab collegeinterest


****College Athlete (IV)****
gen collegeathlete = UMA355a
recode collegeathlete (1=1) (2=0)
tab collegeathlete
tab UMA355a


****Racial Resentment Index (IV)****
alpha rr1 rr2 rr3 if race==1

generate rr1 = CC422a
recode rr1 (1=1) (2=.75) (3=.50) (4=.25) (5=0) (8/9=.)
tab CC422a
tab rr1

generate rr2 = CC422b
recode rr2 (1=0) (2=.25) (3=.50) (4=.75) (5=1) (8/9=.)
tab CC422b
tab rr2

generate rr3 = UMA409
recode rr3 (1=1) (2=.75) (3=.50) (4=.25) (5=0) (8/9=.)
tab UMA409
tab rr3

generate racialresentment = (rr1 + rr2 + rr3)/3
tab racialresentment


****Model Used in Table 1 (OLS)****
reg    prepay female age i.education_categories_power5 party_id ideology income everyunion ncaatherm collegeaththerm collegeinterest collegeathlete racialresentment i.region if race==1 [pw=weight] 




****************Coding for Experimental Analysis****************


****Pay for Play Question (DV)****
generate postpay_experiment = .
replace postpay_experiment = 0 if (UMA421a==1)
replace postpay_experiment = 0 if (UMA421b==1)
replace postpay_experiment = 0 if (UMA421c==1)
replace postpay_experiment = .25 if (UMA421a==2)
replace postpay_experiment = .25 if (UMA421b==2)
replace postpay_experiment = .25 if (UMA421c==2)
replace postpay_experiment = .5 if (UMA421a==3)
replace postpay_experiment = .5 if (UMA421b==3)
replace postpay_experiment = .5 if (UMA421c==3)
replace postpay_experiment = .75 if (UMA421a==4)
replace postpay_experiment = .75 if (UMA421b==4)
replace postpay_experiment = .75 if (UMA421c==4)
replace postpay_experiment = 1 if (UMA421b==5)
replace postpay_experiment = 1 if (UMA421c==5)
replace postpay_experiment = 1 if (UMA421a==5)
tab postpay_experiment
tab UMA421a
tab UMA421b
tab UMA421c



****Model Used in Table 2 (OLS) and Figure 1****
set scheme s1mono
set level 84, permanently
regress postpay_experiment i.UMA421treat racialresentment i.UMA421treat#c.racialresentment if race==1 [pw=weight]
margins UMA421treat, at(racialresentment=(0(.1)1)) vsquish
marginsplot, recast(line) recastci(rarea)



